#lang racket
;note.rkt
;v0.0.0
(require rsound rsound/piano-tones)
(provide note%)

(define note%
  (class object%
    (init-field (son (piano-tone 80)))
    (init-field (type "noire"))
    (init-field (animation-class 'Animation-changer-couleur%))
    (init-field (image-class 'Balle%))
    
    (define/public (get-animation-class) animation-class)
    (define/public (get-image-class) image-class)
    (define/public (get-son) son)
    (define/public (get-type) type)
    
    (define/public (afficher)
      (printf "[note% : ~a, ~a, ~a, ~a]\n"
              son type animation-class image-class))
    
    (super-new)))

(printf "note chargée\n")